Increase the amount of data written to a pipe in a test

(Closes: #1107773)

diff --git a/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch b/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch
new file mode 100644 (file)
index 0000000..716d605
--- /dev/null
+++ b/debian/patches/Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch
@@ -0,0 +1,35 @@
+From: Stephen Dolan <sdolan@janestreet.com>
+Date: Mon, 30 Jun 2025 13:58:36 +0100
+Subject: Increase the amount of data written to a pipe in a test
+
+On some OSes, you need to write more than 1MB of data to a pipe
+before writes block, and read more than 64k to unblock them.
+
+Bug-Debian: https://bugs.debian.org/1107773
+Origin: https://github.com/ocaml/ocaml/pull/14116
+---
+ testsuite/tests/lib-channels/close_during_flush.ml | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/testsuite/tests/lib-channels/close_during_flush.ml b/testsuite/tests/lib-channels/close_during_flush.ml
+index 39ef2fb..08e6f6e 100644
+--- a/testsuite/tests/lib-channels/close_during_flush.ml
++++ b/testsuite/tests/lib-channels/close_during_flush.ml
+@@ -11,7 +11,7 @@ let () =
+   Unix.set_nonblock wr;
+   let buf = Bytes.make 1000 '!' in
+   begin match
+-    for i = 1 to 1000 do
++    for i = 1 to 10_000 do
+       ignore (Unix.write wr buf 0 1000)
+     done
+   with
+@@ -25,7 +25,7 @@ let () =
+   output ch buf 0 1000;
+   let alarm_handler _ =
+     (* clear some space *)
+-    Unix.read rd (Bytes.make 10_000 '?') 0 10_000 |> ignore;
++    Unix.read rd (Bytes.make 100_000 '?') 0 100_000 |> ignore;
+     close_out ch
+   in
+   Sys.signal Sys.sigalrm (Signal_handle alarm_handler) |> ignore;

diff --git a/debian/patches/series b/debian/patches/series
index 73003fc9551e25c446bb9c8fb2010981bd04a61a..6da62215d11e3ea7abdd06bbcf7f2ab9483fd4b7 100644 (file)
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -3,3 +3,4 @@ Trigger-output-complete-exe-on-custom-with-an-enviro.patch
 Do-not-error-on-warnings-in-autoconf.patch
 Use-CCLINKFLAGS-for-linking-all-executables-and-shar.patch
 Mark-test_compact_manydomains-as-multicore.patch
+Increase-the-amount-of-data-written-to-a-pipe-in-a-test.patch